home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / calctp.com / META1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-04  |  2.5 KB  |  74 lines
  1. Unit Meta;
  2. Interface
  3.  
  4. Uses Fastwr;
  5.  
  6.   {FastWrite is a Public Domain text display Package By Brian Foley
  7.    available on Compuserve. GO BOR-100, the file is in LIB 2.  You may
  8.    modify the routines to use any other procedure you want.  FASTWR.TPU
  9.    has proven itself to be bug free and FAST! }
  10.  
  11. Var
  12. MetaPos, LastLine : Integer;
  13.  
  14.  
  15. {LastLines value MUST be assigned here in the Meta file.  It defines the lower
  16.  border of the window around the metaphor.  Therefore the maximum should be 25
  17.  and the minimum should be Row 7 for a minimal window around the inner frame.
  18.  
  19.  MetaPos is a global variable used by CALC.TPU to reposition the window when
  20.  moved on screen. }
  21.  
  22. Procedure DrawCalculator;
  23.  
  24. Implementation
  25.  
  26.  
  27. Procedure DrawCalculator;
  28. Begin
  29.  
  30.  
  31.   {Usage: procedure FastWrite(St : string; Row, Col, Attr : Byte);
  32.    The Row value of 1 is reserved for the the CALC.TPU generated window.
  33.    The width is also fixed in this release of CALC.TPU, but you may change
  34.    the value of LastLine to modify the window size, from the bottom up.
  35.    The calculator always remains anchored to the top of the screen. }
  36.  
  37.   FastWrite('╔════════════════════════╗',3,MetaPos,7);
  38.   FastWrite('║                        ║',4,MetaPos,7);
  39.   FastWrite('╚════════════════════════╝',5,MetaPos,7);
  40.  
  41.   {Unless you want only the result in its own small window, use this
  42.   "inner window" to frame the numeric data, which allways appears on Row 4.}
  43.  
  44.   FastWrite('┌───┐  ┌───┐  ┌───┐  ┌───┐',7,MetaPos,15);
  45.   FastWrite('│ 7 │  │ 8 │  │ 9 │  │ / │',8,MetaPos,15);
  46.   FastWrite('└───┘  └───┘  └───┘  └───┘',9,MetaPos,15);
  47.  
  48.   FastWrite('┌───┐  ┌───┐  ┌───┐  ┌───┐',10,MetaPos,15);
  49.   FastWrite('│ 4 │  │ 5 │  │ 6 │  │ * │',11,MetaPos,15);
  50.   FastWrite('└───┘  └───┘  └───┘  └───┘',12,MetaPos,15);
  51.  
  52.   FastWrite('┌───┐  ┌───┐  ┌───┐  ┌───┐',13,MetaPos,15);
  53.   FastWrite('│ 1 │  │ 2 │  │ 3 │  │ - │',14,MetaPos,15);
  54.   FastWrite('└───┘  └───┘  └───┘  └───┘',15,MetaPos,15);
  55.  
  56.   FastWrite('┌───┐  ┌───┐  ┌───┐  ┌───┐',16,MetaPos,15);
  57.   FastWrite('│ 0 │  │ · │  │ = │  │ + │',17,MetaPos,15);
  58.   FastWrite('└───┘  └───┘  └───┘  └───┘',18,MetaPos,15);
  59.   FastWrite('┌───┐  ┌───┐  ┌──────────┐',19,MetaPos,15);
  60.   FastWrite('│ C │  │cE │  │- - Move│',20,MetaPos,15);
  61.   FastWrite('└───┘  └───┘  └──────────┘',21,MetaPos,15);
  62.   FastWrite(' Esc Quits - F10 to Paste ',23,MetaPos,15);
  63. end;
  64.  
  65. Begin
  66. (* Meta*)
  67. LastLine := 25;
  68.  
  69. { Lastline Must be set to define the position of the bottom of the window.
  70.   Note that it is one more that the last row in the FastWrite calls above. }
  71.  
  72. end.
  73.  
  74.